home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Programming / VisualBuilder / source / Menu.c < prev    next >
Encoding:
Text File  |  1997-08-22  |  3.4 KB  |  112 lines
  1. BOOL BuildMenu(void)
  2. {
  3.   a->MenuStrip = MenustripObject,
  4.     MUIA_HelpNode, "MENU",
  5.     Child, a->MenuFile = MenuObject,
  6.       MUIA_Menu_Title, "File",
  7.       Child, a->FileNew = MenuitemObject,
  8.         MUIA_Menuitem_Title, "New",
  9.         MUIA_Menuitem_Shortcut, "N",
  10.         MUIA_Menuitem_Enabled, FALSE,
  11.       End,
  12.       Child, a->FileOpen = MenuitemObject,
  13.         MUIA_Menuitem_Title, "Open",
  14.         MUIA_Menuitem_Shortcut, "O",
  15.         MUIA_Menuitem_Enabled, FALSE,
  16.       End,
  17.       Child, a->FileSave = MenuitemObject,
  18.         MUIA_Menuitem_Title, "Save",
  19.         MUIA_Menuitem_Shortcut, "S",
  20.         MUIA_Menuitem_Enabled, FALSE,
  21.       End,
  22.       Child, a->FileSaveAs = MenuitemObject,
  23.         MUIA_Menuitem_Title, "Save as",
  24.         MUIA_Menuitem_Shortcut, "V",
  25.         MUIA_Menuitem_Enabled, FALSE,
  26.       End,
  27.       Child, a->FileMakeExe = MenuitemObject,
  28.         MUIA_Menuitem_Title, "Make executable",
  29.         MUIA_Menuitem_Shortcut, "M",
  30.         MUIA_Menuitem_Enabled, FALSE,
  31.       End,
  32.       Child, a->FileQuit = MenuitemObject,
  33.         MUIA_Menuitem_Title, "Quit",
  34.         MUIA_Menuitem_Shortcut, "Q",
  35.       End,
  36.     End,
  37.     Child, a->MenuEdit = MenuObject,
  38.       MUIA_Menu_Title, "Edit",
  39.       Child, a->EditCut = MenuitemObject,
  40.         MUIA_Menuitem_Title, "Cut",
  41.         MUIA_Menuitem_Shortcut, "C",
  42.         MUIA_Menuitem_Enabled, FALSE,
  43.       End,
  44.       Child, a->EditCopy = MenuitemObject,
  45.         MUIA_Menuitem_Title, "Copy",
  46.         MUIA_Menuitem_Shortcut, "O",
  47.         MUIA_Menuitem_Enabled, FALSE,
  48.       End,
  49.       Child, a->EditPaste = MenuitemObject,
  50.         MUIA_Menuitem_Title, "Paste",
  51.         MUIA_Menuitem_Shortcut, "P",
  52.         MUIA_Menuitem_Enabled, FALSE,
  53.       End,
  54.       Child, a->EditDelete = MenuitemObject,
  55.         MUIA_Menuitem_Title, "Delete",
  56.         MUIA_Menuitem_Shortcut, "D",
  57.       End,
  58.     End,
  59.     Child, a->MenuView = MenuObject,
  60.       MUIA_Menu_Title, "View",
  61.       Child, a->ViewObjects = MenuitemObject,
  62.         MUIA_Menuitem_Title, "Objects",
  63.         MUIA_Menuitem_Checkit, TRUE,
  64.         MUIA_Menuitem_Toggle, TRUE,
  65.       End,
  66.       Child, a->ViewToolbox = MenuitemObject,
  67.         MUIA_Menuitem_Title, "Toolbox",
  68.         MUIA_Menuitem_Checkit, TRUE,
  69.         MUIA_Menuitem_Toggle, TRUE,
  70.       End,
  71.       Child, a->ViewToolbar = MenuitemObject,
  72.         MUIA_Menuitem_Title, "Toolbar",
  73.         MUIA_Menuitem_Checkit, TRUE,
  74.         MUIA_Menuitem_Toggle, TRUE,
  75.         MUIA_Menuitem_Checked, TRUE,
  76.       End,
  77.     End,
  78.     Child, a->MenuInsert = MenuObject,
  79.       MUIA_Menu_Title, "Insert",
  80.       Child, a->InsertWindow = MenuitemObject,
  81.         MUIA_Menuitem_Title, "Window",
  82.       End,
  83.     End,
  84.     Child, a->MenuTools = MenuObject,
  85.       MUIA_Menu_Title, "Tools",
  86.       Child, a->ToolsMenuEditor = MenuitemObject,
  87.         MUIA_Menuitem_Title, "Menu editor",
  88.         MUIA_Menuitem_Enabled, FALSE,
  89.       End,
  90.       Child, a->ToolsOptions = MenuitemObject,
  91.         MUIA_Menuitem_Title, "Options",
  92.         MUIA_Menuitem_Enabled, FALSE,
  93.       End,
  94.     End,
  95.     Child, a->MenuHelp = MenuObject,
  96.       MUIA_Menu_Title, "Help",
  97.       Child, a->HelpContents = MenuitemObject,
  98.         MUIA_Menuitem_Title, "Contents",
  99.       End,
  100.       Child, a->HelpAboutVB = MenuitemObject,
  101.         MUIA_Menuitem_Title, "About Visual Builder",
  102.       End,
  103.       Child, a->HelpAboutMUI = MenuitemObject,
  104.         MUIA_Menuitem_Title, "About MUI",
  105.       End,
  106.     End,
  107.   End;
  108.  
  109.   if(a->MenuStrip) return(TRUE);
  110.   else          return(FALSE);
  111. }
  112.